home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / Helpfile / GUICtrlCreateObj.au3 < prev    next >
Encoding:
Text File  |  2006-06-17  |  1.3 KB  |  45 lines
  1. #include <GUIConstants.au3>
  2. ; Simple example: Embedding an Internet Explorer Object inside an AutoIt GUI
  3. ;
  4. ; The full example is available in the test\ActiveX directory (TestXInternet.au3)
  5. ;
  6. ; See also: http://msdn.microsoft.com/workshop/browser/webbrowser/reference/objects/internetexplorer.asp
  7.  
  8. $oIE = ObjCreate("Shell.Explorer.2")
  9.  
  10. ; Create a simple GUI for our output
  11. GUICreate ( "Embedded Web control Test", 640, 580,(@DesktopWidth-640)/2, (@DesktopHeight-580)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
  12. $GUIActiveX            = GUICtrlCreateObj        ( $oIE,         10, 40 , 600 , 360 )
  13. $GUI_Button_Back    = GuiCtrlCreateButton    ("Back",     10, 420, 100,  30)
  14. $GUI_Button_Forward    = GuiCtrlCreateButton    ("Forward",    120, 420, 100,  30)
  15. $GUI_Button_Home    = GuiCtrlCreateButton    ("Home",    230, 420, 100,  30)
  16. $GUI_Button_Stop    = GuiCtrlCreateButton    ("Stop",    330, 420, 100,  30)
  17.  
  18. GUISetState ()       ;Show GUI
  19.  
  20. $oIE.navigate("http://www.autoitscript.com")
  21.  
  22. ; Waiting for user to close the window
  23. While 1
  24.     $msg = GUIGetMsg()
  25.     
  26.     Select
  27.         Case $msg = $GUI_EVENT_CLOSE
  28.             ExitLoop
  29.         Case $msg = $GUI_Button_Home
  30.             $oIE.navigate("http://www.autoitscript.com")
  31.         Case $msg = $GUI_Button_Back
  32.             $oIE.GoBack
  33.         Case $msg = $GUI_Button_Forward
  34.             $oIE.GoForward
  35.         Case $msg = $GUI_Button_Stop
  36.             $oIE.Stop
  37.     EndSelect
  38.     
  39. Wend
  40.  
  41. GUIDelete ()
  42.  
  43. Exit
  44.  
  45.